home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / adocpmou.prg (.txt) next >
Commodore BASIC  |  2009-10-10  |  4KB  |  48 lines
  1. 10 POKE53280,0:POKE53281,0:PRINT"[147]":OPEN15,8,15
  2. 20 PRINT"[154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  3. 30 PRINT"[221] [158][193]DVANCED [207][195][208] [193]RT [211]TUDIO [205]OUSE [196]RIVER [154][221]";
  4. 40 PRINT"[173][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][189]";
  5. 50 PRINT"          [221] [153][195]REATED BY [198]OX! [154][221]"
  6. 60 PRINT"          [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":PRINT
  7. 70 PRINT"   [153][212]HIS PROGRAM MODIFIES YOUR [207][195][208] [193]RT"
  8. 80 PRINT"[211]TUDIO DISK SO THAT IT WORKS PROPERLY"
  9. 90 PRINT"WITH THE [195]OMMODORE 1351 MOUSE (IN"
  10. 100 PRINT"PROPORTIONAL MODE)!  [193]S ALWAYS, MAKE"
  11. 110 PRINT"SURE YOU HAVE A BACKUP OF YOUR [193]RT"
  12. 120 PRINT"[211]TUDIO DISK, JUST IN CASE SOMETHING"
  13. 130 PRINT"GOES WRONG.":PRINT
  14. 140 PRINT"   [159][212]HIS PROGRAM CREATES A NEW BOOT"
  15. 150 PRINT"FILE ON YOUR DISK THAT REPLACES THE"
  16. 160 PRINT"ORIGINAL ONE.  [212]HE ORIGINAL BOOT IS"
  17. 170 PRINT"COPIED TO A FILE CALLED '[207][204][196] [194][207][207][212]' ON"
  18. 180 PRINT"THE SAME DISK.  [215]HEN THE NEW BOOT FILE"
  19. 190 PRINT"RUNS, IT WILL PATCH THE PROGRAM TO"
  20. 200 PRINT"WORK WITH THE MOUSE."
  21. 210 PRINT:PRINT"     [208]RESS [[210][197][212][213][210][206]] TO CONTINUE..."
  22. 220 GETA$:IFA$=""THEN220
  23. 230 PRINT""
  24. 240 FORX=1TO17:PRINT"                                      ":NEXT:PRINT""
  25. 250 PRINT"   [217]OU CAN ALWAYS RETURN TO THE OLD"
  26. 260 PRINT"PROGRAM SIMPLY BY LOADING THE '[207][204][196]"
  27. 270 PRINT"[194][207][207][212]' FILE INSTEAD OF THE NEW ONE.":PRINT
  28. 280 PRINT"[201]NSERT YOUR [193]DVANCED [207][195][208] [193]RT [211]TUDIO"
  29. 290 PRINT"DISK AND PRESS [[210][197][212][213][210][206]]..."
  30. 300 GETA$:IFA$=""THEN300
  31. 310 PRINT:PRINT"[155]      [205]OVING SOME FILES AROUND...":PRINT
  32. 320 PRINT#15,"C0:OLD BOOT=0:ADVANCED":INPUT#15,E,E$,E1,E2
  33. 330 IFE=0THEN370
  34. 340 PRINTTAB(15)"[150] [197][210][210][207][210]! [146]":PRINT"     [195]OULDN'T FIND THE FILE CALLED"
  35. 350 PRINT"    '[193][196][214][193][206][195][197][196]' (OLD LOADER).  [208]RESS"
  36. 360 PRINT"        [[210][197][212][213][210][206]] TO TRY AGAIN...":GOTO220
  37. 370 PRINT#15,"S0:ADVANCED":CLOSE15
  38. 380 PRINT"[158]       [195]REATING NEW BOOT FILE...":PRINT
  39. 390 SYS3939:PRINTTAB(14)"[159][198]INISHED!":PRINT
  40. 400 PRINT:PRINT"     [208]RESS [[210][197][212][213][210][206]] TO CONTINUE..."
  41. 410 GETA$:IFA$=""THEN410
  42. 420 PRINT""
  43. 430 FORX=1TO17:PRINT"                                      ":NEXT:PRINT""
  44. 440 PRINT"   [153][215]HEN YOU BOOT THE PROGRAM, SELECT"
  45. 450 PRINT"'MOUSE' WITH THE [195]= <[211][208][193][195][197]> KEYS, AND"
  46. 460 PRINT"IT WILL WORK WITH A 1351 MOUSE!":PRINT
  47. 470 PRINT"      [212]HE MOUSE PLUGS INTO PORT 1.[154]"
  48.